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-- Streams. Mesa Edited by Sandman on August 23, 1977 10:19 PM 

DIRECTORY 

AUoDefs: FROM "aUodefs", 
AUoFileDefs: FROM "altof iledefs" , 
BFSDefs: FROM "bfsdefs", 
DiskDefs: FROM "diskdefs", 
InlineOefs: FROM " in! inedefs" , 
MiscDefs: FROM "miscdefs", 
SegmentDefs: FROM "segmentdef s" , 
StreamDefs: FROM "streamdef s" , 
SystemDefs: FROM "systemdef s" ; 

DEFINITIONS FROM AUoDefs, AUoFileDefs. StreamDefs; 

Streams: PROGRAM 

IMPORTS BFSDefs, MiscDofs, SegmentDefs, SystemDefs 
EXPORTS StreamDefs SHARES StreamDefs, SegmentDefs = BEGIN 

WindowSize: PageCount = 1; 

StreamError: PUBLIC SIGNAL [stream:StreamHandle, error :StreamErrorCode] = CODE; 

NewByteStream: PUBLIC PROCEDURE [name: STRING, access :AccessOptions] 
RETURNS [DiskHandle] = 
BEGIN OPEN SegmentDefs; 

RETURN[Create[NewFne[name, access, Def auUVers ion] .bytes , access]] 
END; 

NewWordStream: PUBLIC PROCEDURE [name: STRING, access :Acc8Ss0ptions] 
RETURNS [DiskHandle] « 
BEGIN OPEN SegmentDefs; 

RETURN[Create[NewFile[name, access, Def auUVers ion] .words , access]] 
END; 

CreateByteStream: PUBLIC PROCEDURE [f ile:SegmentDef s . Fi leHandle. access: AccessOptions] 
RETURNS [DiskHandle] = BEGIN 
RETURN[Create[ file, bytes, access]] 
END; 

CreateWordStream: PUBLIC PROCEDURE [fi le :SegmentDefs . Fi leHandle, access: AccessOptions] 
RETURNS [DiskHandle] = BEGIN 
RETURN[Create[file, words, access]] 
END; 

Model: Disk StreamObject = StreamObject [ 
Reset, ReadByte, PutBack, 
WriteByte. EndOf, Destroy, 
Disk [ 

FALSE. FALSE, 1. 0, NIL, 0. 0. 

Fixup, ReadError, Fixup, WriteByte, 

NIL, FALSE, FALSE, FALSE, 0. 0, , ]]; 

Create: PROCEDURE [ f i le : Segmen tDef s . F i 1 eHandl e , un i ts : {by tes .words} . access: AccessOptions] 
RETURNS [stream: DiskHandle] - 
BEGIN OPEN SegmentDefs; 
fa: FA ^ FA[eofDA , . 0] ; 

IF access = Def aul tAccess THEN access ♦- Read; 
SetFileAccess[ file, access]; 

stream ^ SystemDefs .Al locateHeapNode[SIZE[Disk StreamObject]]: 
streamt ♦- Model; stream. file ♦• file; 
stream. read ♦- Inl ineDef s .BITAND[access . Read]j^O; 
stream. write *• In! ineDef s . BTTAND[access . Wr i te]/!'0 ; 
stream, append ♦- Inl ineOefs . BTTAND[access , Append]j^O ; 
stream, buffer ♦- SystemDefs . Al locatePages[W indowSize] ; 
IF un i ts=words THEN 

BfGIN OPFN stream; 

get *- ReadViord; unit ♦- 2; 

put ♦- savedPut ^ WriteWord; 

FND; 
IF -stream. read THEN stream. get *- ReadFrror; 
SrirCT Inl inenefs.BITAND[access.Write+Append] FROM 

=> stream. put ♦- s tream. savedPut ♦- WriteError; 

Write => stream. savedPut ♦- WriteError; 

Append => stream, put *- WritefiTor; 

fNOCASF; 
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LockFile[file]; OpenFile[f ile]: 

stream. das[last] ♦- stream. das[next] ♦• fillinDA; 

stream. das[current] <- f ile. fp. leaderDA; 

IF access « Append 

THEN [] 4- FileLength[stream] 

ELSE Jump[stream,0fa,l]; 
RETURN 
END; 

OpenDiskStream: PUBLIC PROCEDURE [stream:StreamHandle] = 
BEGIN fa: FA; 
WITH s: stream SELECT FROM 
Disk => 
BEGIN 
IF s.buffer = NIL THEN s.buTTer *• 

SystemDef s .AT 1ocatePages[WindowSize]; 
fa ♦- FA[s.das[current] , s.page,Pos[Qs]]; 
SegmentDefs.OpenF i1e[s.fi1e]; 
JumpToFA[0s,Qfa]; 
END; 
ENDCASE => SIGNAL S treamError[@s ,S treamType] ; 
RETURN 
END; 

CleanupDiskStream: PUBLIC PROCEDURE [stream:StreamHandle] = 
BEGIN 
WITH s:stream SELECT FROM 

Disk => Cleanup[0s,TRUE]; 

ENDCASE => SIGNAL StreamError[Qs .StreamType] ; 
RETURN 
END; 

Reset: PROCEDURE [stream:StreamHand1e] = 
BEGIN fa: FA; 
WITH s:stream SELECT FROM 
Disk => 

IF s.page = 1 THEN Posi tionBy te[@s . 0] 
ELSE BEGIN fa ^ FA[eof DA. . 0] ; Jump[@s ,0f a . 1] ; END; 
ENDCASE => SIGNAL S treamError[@s , StreamType] ; 
RETURN 
END; 

CloseDiskStream: PUBLIC PROCEDURE [stream:StreamHand1 e] = 
BEGIN 

WITH s: stream SELECT FROM 
Disk => 
BEGIN 

Cleanup[0s,TRUE]; 
Sys temDef s .FreePages[s. buffer]; 
IF s.f ile. segcount=0 THEN 

SegmentDefs.CloseF i1e[s.ri1e]; 
s. buffer ^ NIL; 
END; 
ENDCASE => SIGNAL StreamError[@s , StreamType] ; 
RETURN 
END; 

TruncaleDiskStream: PUBLIC PROCEDURE [stream: StreamHandle] 
BEGIN 

WITH s:stream SELECT FROM 
Disk => Kni[0s,s. write]; 

ENDCASE => SIGNAL StreamError[@s , StreamType] ; 
RETURN 
END: 

Destroy: PROCfDURF [stream: S treamHand 1 e] = 
BEGIN 

WITH s: stream Sfl fCT FROM 
Disk => K in[@s,--s . read]: 

ENDCASr => SIGNAL S treamE rror [0s . StreamType] ; 
RETURN 
END; 

Kill: PROCrnURE [stream: D iskHandl e . trunc : BOOLEAN] = 
BEGIN OPEN stream; 
da: vDA; pn: PageNumber; 
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IF buffer if NIL THEN 
BEGIN da ♦- eofDA; 

IF trunc AND Getlndex[stream] // Streamlndex[0,03 THEN 
BEGIN -- truncate the file 

-- this is not a separate procedure because it 
— leaves the stream buffer in an awful state, 
pn ♦- page; da ♦• das[next]; das[next] ^ eofDA; 
IF char # Pos[stream3 THEN 

BEGIN char *• Pos[stream]; dirty <- TRUE END; 
END; 
IF dirty THEN Cleanup[$tream, TRUE] ; 
IF da H eofDA THEN 

BFSDefs.DeletePages[buffer,0f ile. fp,da,pn+l]; 
SystemOefs .FreePages[buffer3; 
END; 
SegmentDefs.UnlockFile[f ile]; 
IF f ile.segcount=0 THEN 

SegmentDefs.ReleaseFile[f ile]; 
SystGmOefs.FreeHeapNode[ stream]; 
RETURN 
END; 



-- block mode transfers 

direction: TYPE = {in, out}; 

-- the fast stream overflow handler; should only be called 

-- from the fast stream get. put, and endof routines. It 

— always supplies a new count (which may be zero, in which 

— case get and/or put is replaced with an error routine). 

Fixup: PROCEDURE [stream: StreamHandle] = 
BEGIN pos: CARDINAL; 
WITH s:stream SELECT FROM 
Disk => 
BEGIN 

Cleanup[0s, FALSE]; -- don't flush 
IF (pos ^ Pos[0s]) >= s.char THEN 
BEGIN 

SetEndC0s,TRUE]; -- ran into eof 
Setup[@s.s. buffer, pos, Chars PerPage]; 
END; 
END; 
ENDCASE => SIGNAL StreamError[@s , StreamType] ; 
RETURN 
END; 



-- Cleanup makes the disk look like the stream, unless the 
-- current page is not full and you didn't ask for a flush. 

Cleanup: PROCEDURE [s :Di skHandle , flush : BOOLEAN] = 
BEGIN pos: CARDINAL; 

IF (pos <- Pos[s]) > s.char THEN Pos it ionBy te[s ,pos] ; 
IF pos=CharsPerPage THEN 

-- write current page, read (maybe create) next one 

IF s. dirty THEN [] ^ TransferPages[s , NIL , 1 . out , FALSE] 

-- donothing with current page, read next one 

ELSE [] ♦- TransferPages[s,NIL,l. in,TRUE] 
CLSF IF s. dirty AND flush THEN 

BFGIN 

-- write current page w/ new numChars 

[] ♦- TransferPages[s, NIL .0. out. TRUE]; 

Pos i t iof'By te[s . pos] ; 

FNO; 
RETURN 
END; 

ReadBlock: PUBl TC PROCfDURi: [ 

Stream: StreamHandle. address : POINTER . words : CARDINAL ] 
RETURNS [CARDINAL] = 
BEGIN 

done: CARQINAl ♦- 0; 
WITH s: stream Sfl fCT FROM 
Disk => IF s.read THEN 
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done <- TransferB1ock[0s .address, words, in]; 
ENDCASE => SIGNAL S treamError[0s .StreamType] ; 
RETURN[done] 
END; 

WriteBlock: PUBLIC PROCEDURE [ 

stream: St reamHandle, address: POINTER, words : CARDINAL] 
RETURNS [CARDINAL] » 
BEGIN 

done: CARDINAL ♦- 0; 
WITH s:stream SELECT FROM 
Disk => 

IF (-s. write AND -s. append) 
OR (-S. write AND s. append AND -EndOf[0s]) 
OR (s. write AND -s. append AND EndOf[0s]) 
THEN NULL 

ELSE done ^ TrnnsferBlock[0s . address, words, out] ; 
ENDCASE «> SIGNAL StreamError[0s , StreamType] ; 
RETURN[done] 
END; 

TransferBlock: PROCEDURE [ 

s:DiskHandle, a:POINTER, n:CARDINAL, d:direction] 

RETURNS [CARDINAL] = 

BEGIN OPEN InlineDefs; 

np: PageCount; 

done: CARDINAL ♦• 0; 

left, pos, words: CARDINAL; 

IF BITAND[Pos[s].CharsPerWord-l]#0 

THEN ERROR StreamError[s , StreamPosition] ; 
WHILE done # n DO 
left ♦• n-done; 

pos ♦- BITSHIFT[Pos[s],-LogCharsPerWord]; 
words ♦- 
(IF d=out AND s. append THEN PageSize 
ELSE BITSHIFT[s.char+CharsPerWord-l.-LogCharsPerWord]) - pos; 
words ♦• IF left > words THEN words ELSE left; 
IF words # THEN 
BEGIN 

Posi tionByte[s,BITSHIFT[pos+words,LogCharsPerWord]]; 
SELECT d FROM 

in => COPY[from:s.buffer+pos , to:a,nwords:words]; 
out => 
BEGIN 

COPY[from:a. to: s . buf fer+pos ,nwords : words]; 
s. dirty ♦- TRUE; 
END; 
ENDCASE; 
END; 
IF s.char tt CharsPerPage 
AND s.endof[s] AND (d=in OR ~s. append) 

THEN RETURN [done+words] : 
np ♦- BITSHIFT[lef t-words,-LogPageSize]; 
IF left-words // THEN 
words <- words+BITSHIFT[ 

TransferPages[s,a+words,np,d. FALSE] , Log PageSize]; 
a ^ a+words; done ♦- done+words; 
ENDLOOP; 
RETURN[done] 
END; 

-- Transfers np pages (or fewer if the file runs out while reading/updating), 

-- starting at address a and the current page of the file (the one in 

-- the buffer). It leaves the noxt page in the buffer, with the stream 

-- set up at the first character. Note that if writing, the next page 

-- is read, not written; if the file is extended, the buffer is cleared. 

-- Returns the number of pages transferred, not counting the next one 

-- that was read into the buffer. It's only legal to call Trans ferPages 

-- when the buffer is full or empty; use TransferBlock otherwise. 

-- Some special uses: 

a=0 All transfers are into buffer (useful for positioning). 
np=0 The current page is transfered (useful for Cleanup). 
np=-l Backup one page (useful for positioning). 

-- The last argument is for very special uses (described below), do 
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— not supply it unless you know what you are doing! If special is 

-- true, the following funny things happen, depending on direction: 

direction=in: action is made DoNothing (np should be one) 

Used by Cleanup to skip the current page and read next one. 
direction=out: lastAction is replaced by WriteD, and last- 
Bytes is replaced by the numChars from the stream (np should 
be zero). Used by Cleanup to flush with new buffer length. 

TransferPages: PROCEDURE [ 

s:DiskHandle, a:POINTER, np : PageCount, d:direction, special :BOOLEAN] 

RETURNS [PageCount] = 

BEGIN OPEN DiskDefs; 

backup: BOOLEAN; 

arg: DiskRequest; 

i, f p , Ip: PageNumber; 

dohuffer: BOOLEAN ^ FALSE; 

DAs: DESCRIPTOR FOR ARRAY OF vOA; 

CAs: DESCRIPTOR FOR ARRAY OF POINTER; 

f: POINTER TO FP ♦- Qs.file.fp; 

-- flush the buffer if the transfer won't 

IF d='in THEN 

IF s. dirty THEN Cleanup[s .TRUE] 

ELSE NULL; -- should mark written 
-- include the buffer if the transfer doesn't 
IF a # NIL AND Pos[s] = CharsPerPage THEN 

BEGIN 

-- the stream is at [page n, byte 0], but the 

-- buffer is at [page n-1, byte CharsPerPage]; 

-- transfer the buffer, too, even if not dirty. 

dobuffer ♦- TRUE; np ^ np + 1; 

a ♦• a-PageSize; -- fixed below 

END; 
fp ♦• s.page; Position8yte[s ,0]; 
IF backup ♦- (np = -l) THEN 

BEGIN fp ^ fp-l; np ^ END; 
Ip ♦• fp+np; 
CAs *• DESCRIPTOR [ 

SystemDefs.AnocateHeapNode[np+3]-(fp-l),lp+2]; 
DAs - DESCRIPTOR [ 

SystemDefs .AllocateHeapNode[np+3]-(fp-l) ,lp+2]; 
FOR i IN [Fp-1. .lp+1] DO 

CAs[i] ♦• 

IF a = NIL THEN s. buffer 
ELSE a+( i-fp)*PageSize; 

DAs[i] *- fillinDA; 

ENDLOOP; 
CAs[lp] ♦• s. buffer; IF dobuffer THEN CAs[fp] ^ s. buffer; 
InlineDefs.COPY [ 

from:Qs.das. to:0DAs[IF backup THEN fp ELSE fp-l], 

nwordsiIF backup THEN LENGTH[s .das]-l ELSE LENGTH[s . das]] ; 
arg ♦- DiskRequest [ 

@CAs [ ] , QDAs [ ] , f p , 1 p , f , F ALSE , 

WriteD.ReadD,FALSE,update[BFSDefs.GetNextDA]]; 
IF d=in OR (d=out AND -special AND ~s. append) THEN 

BEGIN 

IF d=in THEN arg. action ♦- ReadO; 

IF special THEN arg. action ♦- DoNothing; 

[i.s.char] ♦- BfSDef s . ActOnPages[LOOPHOLE[@arg]] ; 

IF i?yip AND s.char>0 AND CAs[ i ]/^s . buf f er THEN 

In! ineDef s .COPY[f rom:CAs[ i], to : s . bu f f er , nwords : PageS i ze] ; 

END 
ELSE 

BEGIN 

arg ♦- DiskRequest [,, 

ir special THEN WriteD EISE ReadD,, 
extend[ir special THEN s.char ELSE 0]]; 

[i.s.char] *- BTSDefs .Wr i LePages[LOOPHOl C[@arg]] ; 

fND: 
s . page «- i ; 

If s.char=0 THEN M i scDefs . 7ero[s . bu ffer . PageS ize] ; 
Inl ineDers.COPY [ 

rrom:(3DAs[ i-1], lo : (§s . das . nwords : L FNGTH[s . das]] ; 
Tf s.das[nexl]-oorDA THFN Se Lf i 1 eLeng th[s] ; 
SystemDeFs.FreeHeapNode[RASE[CAs]+fp-l] ; 
Sy slemDe f s.rreeHeapNode[ BASE [DAs ]+ fp-1]; 
SeLup[s,s.buFfer,0. s.char]; 
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SetEnd[s,s.count=0]; s. dirty ^ FALSE; 
RETURN[i-fp-(IF dobuffer THEN 1 ELSE 0)] 
END; 

bite: INTEGER = 60; -- don't use too much heap 

PositionPage: PROCEDURE [s:DiskHandle, p :PageNumber] « 
BEGIN d, dp, np: PageNumber; 
C1eanup[s,TRUE]; PositionByte[s,0] ; 
-- should we reset first? 
SELECT s.page-p FROM 

<= => NULL; 

= 1, < s. page/10 => NULL; 

ENDCASE => ResetCs]; 
WHILE (d ♦- p-s.9age)m DO 

dp «- IF d < THEN -1 ELSE MIN[d.bite]; 

np ♦- Transf8rPages[s.NIL,dp, in.FALSE]; 

IF dp > AND np # dp THEN EXIT; 

REPEAT FINISHED => RETURN; 

ENDLOOP; 
IF ~s. append THEN ERROR StreamError[s , StreamAccess] ; 
-" extend the file (the first transfer flushes the buffer) 
IF s.char > THEN [] *- TransferPages[s . NIL. 1 .out , FALSE] ; 
WHILE (d ♦• p-s.page);^0 DO 

[] ^ TransferPages[s. NIL. MIN[d, bite], out. FALSE]; 

ENDLOOP; 
RETURN 
END; 

PositionByte: PROCEDURE [s:DiskHandle . b:CARDINAL] = 
BEGIN OPEN s; 
pos: CARDINAL; 
IF das[next]=eofDA THEN 
BEGIN 

IF (pos ^ Pos[s]) > chap 
AND append AND dirty 

THEN char ♦- pos; 
IF b > char THEN 

IF -append THEN b ♦- char 
ELSE BEGIN char ^ b; dirty ^ TRUE END; 
END; 
Se tup [s.buffer.b. char]; 
SetEnd[s, count = AND char;^CharsPerPage] ; 
RETURN 
END; 

Getlndex: PUBLIC PROCEDURE [stream:StreamHandle] 
RETURNS [Streamlndex] = BEGIN 
WITH s:stream SELECT FROM 
Disk => 
BEGIN 

-- make sure we're not at end of page 
Cleanup[@s, FALSE]; -- don't flush 
RETURN[StreamIndex[s.page-l,Pos[0s]]]; 
END; 
ENDCASE => SIGNAL StreamError[@s , StreamType] ; 
RETURN[StreamIndex[0,0]] 
END; 

Normal izelndex: PUBLIC PROCEDURE [ index :StreamIndex] 
RETURNS [Streamlndex] = 
BEGIN OPFN Inl ineDefs; 

delta: PageNumber ♦- BITSHIFT[ index . by te , -LogCharsPerPage] ; 
index. byte ♦- B1TAND[ index . by te .CharsPerPage-1 ] ; 
index. pago ♦- index . page+del ta; 
RrTURN[index] 
END; 

SelTndex: PUBLIC PROCfDURE [s tream: S treamflandle , i ndex :SlreamTndex] 
BEGIN 

WITH s: stream SELECT FROM 
Disk => 
BEGIN 

index ^ Normal i /elndex[ index] ; 
IE index.page+1 ^ s.page 

THEN Pos i t ion Page [0s , i ndex . page + 1 ] ; 
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PositionByte[0s, index. byte]; 

END; 
ENDCASE => SIGNAL StreamError[Qs .StreamType] ; 
RETURN 
END; 

Modifylndex: PUBLIC PROCEDURE [index: Streamlndex, change: INTEGER] 
RETURNS [Streamlndex] = 
BEGIN OPEN AltoOefs; 

pages: INTEGER ♦• In! ineDefs . BITSHIFT[ABS[change] , -LogCharsPerPage] ; 
bytes: INTEGER ♦- In! ineDefs . BITAND[ABS[change] , CharsPerPage-1] ; 
SELECT change FROM 
> => 
BEGIN 

bytes ♦• index. byte + bytes; 
IF bytes >= CharsPerPage THEN 

BEGIN bytes *- bytes - CharsPerPage; pages ♦• pages + l END; 
pages ♦- index. page + pages; 
END; 
= => RETURN [index]: 
< => 
BEGIN 

bytes ♦• index. byte - bytes; 
IF bytes < THEN 

BEGIN bytes ♦- bytes + CharsPerPage; pages ♦■ pages + 1 END; 
pages ♦- index. page - pages; 
END; 
ENDCASE; 
IF pages < THEN RETURN [[0, 0]]; 
RETURN [[LOOPHOLE[pages]. LOOPH0LE[bytes]]] ; 
END; 

GetFA: PUBLIC PROCEDURE [stream: StreamHandl e , fa:POINTER TO FA] = 
BEGIN 

WITH s: stream SELECT FROM 
Disk => 
BEGIN 

-- make sure not at end of a page 
C1eanup[@s, FALSE]; -- don't flush 
fat ♦- FA[s.das[current] .s .page,Pos[Qs]]; 
END; 
ENDCASE => SIGNAL StreamError[@s , StreamType] ; 
RETURN 
END; 

FileLength: PUBLIC PROCEDURE [stream: StreamHandle] 
RETURNS [Streamlndex] = 
BEGIN fa: FA; 
WITH s:stream SELECT FROM 
Disk ==> 
BEGIN 

fa ♦- s. f i 1e. eof ; 
fa. byte <- CharsPerPage; 
Jump[@s ,@fa,MaxFnePage]; 
RETURN[GetIndex[@s]]; 
END; 
ENDCASE => SIGNAL StreamError[@s . StreamType] ; 
RFTURN[StreamIndex[0.0]] 
END: 

JumpToFA: PUBLIC PROCEDURE [s tream: StreamHandle . fa:POINTER TO FA] = 
BFGIN 

WITH s: stream SCLECT FROM 
Disk => 

BEGIN Jump[0s,fa. Fa.page]: 

IF fa.page tf s.page OR fa. byte if Pos[@s] THEN 

SIGNAL StreamError[@s,StreamEnd]; 
FNO; 
FNDCASE => SIGNAL S treamF rror[@s , S treamType] ; 
RETURN 
END; 

Setr ilel ength: PROCEDURE [s :Di skHandl e] = 
BEGIN OPEN s; 

fa: FA ♦- rA[rias[cur rent] , page . char] ; 
SegmentDefs.UpdateF ileLength[fi1e,@fa]; 
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RETURN 
END; 

Jump; PROCEDURE [s:DiskHan<ne, fa:POINTER TO FA. pn: PageNumber] = 
BEGIN OPEN s; 

cfa: CFA ♦■ CFA[f ile.fp. f at] ; 

IF dirty THEN CleanupCs .TRUE] ; PositionByteCs.O] ; 
[das[1ast],das[next]] ^ SegmentOefs.JumpToPage[0cf a, pn, buffer] ; 
[das[current] .page, char] ^ cfa. fa; 

IF das[next]=eofDA THEN SegmentDefs .UpdateFileLength[f ile.Qcfa. f a] ; 
PositionByte[s.IF page//pn THEN char ELSE MIN[char , f a.byte]] ; 
RETURN 
END; 

procedures to test for equality of stream indexes 
Equallndex: PUBLIC PROCEDUREC il , i2; Streamlndex] RETURNS [BOOLEAN] « 
BEGIN 

RETURN[(il.page » i2.page) AND (il.byte « i2.byte)]; 
END; 

GrEquallndex: PUBLIC PROCEDURE[i 1 . i2: Streamlndex] RETURNS [BOOLEAN] 
BEGIN 
RETURN[(il.page > i2.page) OR 

((il.page = i2.page) AND (il.byte >= i2.byte))]; 
END; 

Grindex: PUBLIC PROCEDURE[il , i2: Streamlndex] RETURNS [BOOLEAN] « 
BEGIN 
RETURN[(il.page > i2.page) OR 

((il.page = i2.page) AND (il.byte > i2.byte))]; 
END; 

FAST STREAMS 

-- the counts and positions should be optimized for 

-- the instruction set (as in the bcpl implementation). 

Setup: PROCEDURE [s :Di skHandle , base: POINTER , pos , end :CARDINAL] = 
BEGIN OPEN InlineDefs, s; 
mask: WORD ♦- -unit; 
shift: INTEGER ♦- unit-1; 
-- both pos and end are rounded 
pos *- BITAND[pos+shift .mask] ; 
end ^ BITAND[end+shirt,mask]; 
byte ^ BITAND[pos,CharsPerWord-l]; 
word ^ base+BITSHIFT[pos, -LogCharsPerWord]; 
count *■ BITSHIFT[end-pos, -shift]; 
size ♦• end; 
RETURN 
END; 

Pos: PROCEDURE [s :DiskHand1 e] RETURNS [CARDINAL] = 
BEGIN OPEN s; 

RETURN [size-InlineDefs.BITSHIFT[count. unit-1]] 
END; 

SetEnd: PROCEDURE [s :Di skHandle, b:BOOLEAN] = 
BEGIN 

g: PROCEDURf [S treamHandl e] RETURNS [UNSPECIFIED]; 
p: PROCCDURr [StreamHandl e , UNSPECIFIED] ; 
IF s.eof ff b TflEN 

BEGIN s.eof ♦- b; 

g ♦- s.get; s.get ♦• s.savedGet; s.savedGet *- g; 

p ♦- s.put; s.put ♦- s.savedPut; s.savedPut *• p; 

END; 
RETURN 
END; 

bytepointer: TYPE = POTNirR TO bytepair; 

bylepair: TYPE = MACHINE DEPENDENT RECORD [ 1 eft , r i gh L : BYTE] ; 

ReadFrror: PROCEDURE [s : S treamHandl e] RETURNS [UNSPECIFIED] = 
BEGIN 

SIGNAL SlreamError[s . S LreamAccess] : 
RETURN[0] 
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END; 

ReadByte: PROCEDURE [stream:S treamHandle] RETURNS [item:UNSPECIFIED] 
BEGIN item ♦• 0; 
WITH s: stream SELECT FROM 
Disk => 
BEGIN 
IF s.count=0 THEN 

BEGIN s.getOverflow[0s]; 
RETURN[s.get[@s]]; END; 
IF s.byte=0 THEN 
BEGIN 

item ♦- LOOPHOLE[s. word, bytepointer]. left; 
s.byte ♦- 1; 
END 
ELSE 
BEGIN 

item ♦- LOOPHOLE[s. word, bytepointer]. right; 
s.word <- s.word+l; s.byte ♦• 0; 
END; 
s. count ^ s.count-1; 
END; 
ENOCASE => SIGNAL StreamError[Qs .StreamType] ; 
RETURN 
END; 

ReadWord: PROCEDURE [stream:StreamHand1e] RETURNS [item:UNSPECIFIED] 
BEGIN item ♦• 0; 
WITH s: stream SELECT FROM 
Disk => 
BEGIN 
IF s.count=0 THEN 

BEGIN s.getOvernow[Qs]; 
RETURN[s.get[@s]]; END; 
item ^ s.wordt; 
s.word ♦- s.word+1; 
s. count ♦- s.count-1; 
END; 
ENDCASE => SIGNAL StreamError[0s , StreamType] ; 
RETURN 
END; 

PutBack: PROCEDURE [stream:StreamHand1e , i tem:UNSPECIFIED] = 
BEGIN 

SIGNAL StreamError[stream,StreamOperation]; 
RETURN 
END; 

WriteError: PROCEDURE [stream: StreamHandle . itemrUNSPECIFIED] = 
BEGIN 

SIGNAL StreamError[stream,StreamAccess] ; 
RETURN 
END; 

WriteByte: PROCEDURE [stream: StreamHandle. i tem:UNSPECIFIED] = 
BEGIN 

WITH s:stream SELECT FROM 
Disk => 
BEGIN 
IF s.count=0 THEN 

BEGIN s.put0verflow[9s]; 

s . put[0s . i tern] ; 

RETURN; END; 
If s.byte=0 THEN 

BEGTN 

LOOPHOLE[s .word .bytepo inter] . left ♦- item; 

s .byte <- 1 ; 

END 
ELSE 

BEGIN 

I OOPHOl r[s .word .by tepo inter] . r ight ♦- item; 

s.word *- s.word + 1; s.byte ♦- 0; 

END; 
s . count ♦- s . count-1 ; 
s.d irty ♦- TRUE; 
END; 
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ENDCASE => SIGNAL StreamError[Qs .StreamType] ; 
RETURN 
END; 

WriteWord: PROCEDURE [stream:StreamHancne, item:UNSPECIFIED] 
BEGIN 

WITH s:stream SELECT FROM 
Disk «> 
BEGIN 
IF s.count=0 THEN 

BEGIN s.putOverf1ow[Qs]; 
s.put[@s, item] ; 
RETURN; END; 
s.wordt ♦• item; 
s.word ^ s.word+1; 
s. count ♦- s.count-1; 
s. dirty ♦• TRUE; 
END; 
ENDCASE => SIGNAL StreamError[0s .StreamType] ; 
RETURN 
END; 

EndOf: PROCEDURE [stream:StreamHand1e] RETURNS [BOOLEAN] ^ 
BEGIN 

WITH s:stream SELECT FROM 
Disk «> 
BEGIN 

IF s.eof THEN RETURN[TRUE] ; 
IF s.count^O THEN RETURN[FALSE] ; 
s.getOvernow[@s]; RETURN[s . endof [@s]] ; 
END; 
ENDCASE => SIGNAL StreamError[Qs , StreamType] ; 
RETURNCFALSE] 
END; 

END. 



